#!/usr/bin/env perl

use utf8;
use strict;

while(<STDIN>){
	s/$ARGV[0]/$ARGV[1]/;
	print "$_\n";
}
